home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / AmigaSystem / Scalos / BWS_Scalos / Scalos_Info / Install < prev    next >
Text File  |  2002-10-28  |  3KB  |  149 lines
  1. ; Script created by Bruce Steers bsteers@ukonline.co.uk
  2.  
  3. (set ver "$VER: Install_Scalos_Info 3.0b (11.09.2001)")
  4.                      (set verN "3.0b")
  5.  
  6. (set v39 (>= (/ (getversion "exec.library" (resident)) 65536) 39))
  7.  
  8. ; getversion of existing module
  9. (set vernum (getversion "Scalos:modules/Information.module"))
  10. (set oldverV (/ vernum 65536))
  11. (set oldverR (- vernum (* ver 65536) ) )
  12. (set oldver (cat oldverV"."oldverR))
  13.  
  14. (set srcdir (pathonly @icon))
  15.  
  16. (set origmod  "Scalos:modules/V2_Information.module")
  17. (set newmod  "Scalos:modules/Information.module")
  18.  
  19. (welcome "\nWelcome to the Scalos_Information "verN" Install Script\nThis will Update your Information.module")
  20.  
  21. (set @default-dest "Scalos:modules")
  22.  
  23. (complete 10)
  24.  
  25. (if (exists origmod (noreq))
  26.  ((set instype
  27.    (askbool
  28.    (prompt "\n\nwould you like to install the New Information.module\n\nOr Revert back to the original one?")
  29.    (choices "Install New" "Revert to Original")
  30.    (help @default-askbool)
  31.    )
  32.  ))
  33. (set instype 1)
  34. )
  35.  
  36.  (complete 20)
  37.  
  38. (if (= instype 1)
  39.  (
  40.   (if (= oldverV 2)
  41.     (if
  42.       (askbool
  43.       (prompt "\n\nBackUp Original V2 Information.module\n\nRename your Existing Information.module\nas V2_Information.module")
  44.       (help @default-askbool)
  45.       )
  46.       (
  47.         (if (exists origmod (noreq))
  48.         (delete origmod (optional "force") (infos))
  49.         )
  50.       (rename newmod origmod)
  51.       )
  52.     )
  53.   )
  54.  
  55.  (complete 40)
  56.  
  57.   (copyfiles
  58.   (source "Information.module")
  59.   (dest @default-dest)
  60.   (infos)
  61.   )
  62.  
  63. (set prefsdest "Scalos:Prefs/Modules")
  64.  
  65.   (if (not (exists prefsdest) )
  66.   (makedir prefsdest (infos))
  67.   )
  68.   (copyfiles
  69.   (source "Information.prefs")
  70.   (dest prefsdest)
  71.   (infos)
  72.   )
  73.  
  74.  (complete 50)
  75.  
  76.   (copyfiles
  77.   (source "Scalos_Information.guide")
  78.   (dest "Scalos:Docs")
  79.   (prompt "Install Scalos_Information.guide ?")
  80.   (help @copyfiles-help)
  81.   (confirm)
  82.   (infos)
  83.   )
  84.  
  85.  (complete 60)
  86.  
  87.   (copylib
  88.   (source "/libs/amigaini.library")
  89.   (dest "Libs:")
  90.   (prompt "Install AmigaINI.library ?")
  91.   (help @copylib-help)
  92.   (confirm)
  93.   (infos)
  94.   )
  95.  
  96.  (complete 70)
  97.  
  98.   (copylib
  99.   (source "/libs/BetterString.mcc")
  100.   (dest "Mui:Libs/mui")
  101.   (prompt "Install BetterString.mcc ?")
  102.   (help @copylib-help)
  103.   (confirm)
  104.   (infos)
  105.   )
  106.  
  107.  (complete 80)
  108.  
  109.   (copylib
  110.   (source "/libs/BetterString.mcp")
  111.   (dest "Mui:Libs/mui")
  112.   (prompt "Install BetterString.mcp ?")
  113.   (help @copylib-help)
  114.   (confirm)
  115.   (infos)
  116.   )
  117.  
  118.  (complete 90)
  119.  
  120.  
  121.  (set @default-dest "Scalos:")
  122.  (complete 100)
  123.  (exit  "\n\n" @app-name " Installaton is now over.\n\nPlease Read the Docs to understand how to use Scalos_Info "verN)
  124.  )
  125.  
  126.  
  127.  (
  128.  
  129.  (if (exists newmod)
  130.  (delete newmod (optional "force") (infos))
  131.  )
  132.  
  133.  (rename origmod newmod)
  134.  
  135.  (set guide "Scalos:Docs/Scalos_Information.guide")
  136.  
  137.   (if (exists guide)
  138.    (delete guide (optional "force") (infos))
  139.   )
  140.  
  141.  (set @default-dest "Scalos:")
  142.  
  143.  (complete 100)
  144.  
  145.  (exit  "\n\n" @app-name " has been restored back to version 2.x")
  146.  )
  147. )
  148.  
  149.